﻿Imports EntitiesLayer

'---------------------------------------> Clase creada por Diego Barillas <----------------------------------------

Public Class frmAsociarMusculosAEjercicio
    Dim nombreComun As String
    Dim nombreOpcional As String
    Dim codigo As String
    Dim erroresComunes As String
    Dim indicacionesGenerales As String
    Dim nombreMusculoPrincipal As String
    Dim imagenInicial As String
    Dim imagenFinal As String
    Dim listaMusculos As List(Of Musculo) = New List(Of Musculo) 'lista que almacena los musculos que se le dan check

    Private Sub PictureBox1_Click(sender As Object, e As EventArgs) Handles PictureBox1.Click

        For Each x As Control In Me.Parent.Controls.OfType(Of frmRegistrarImagenesEjercicio)()
            x.Visible = True

        Next
        Me.Visible = False
    End Sub

    Private Sub btnCancelar_Click(sender As Object, e As EventArgs) Handles btnCancelar.Click
        Dim frmcancelar As New frmCancelar 'crea una instancia del form modificar roles
        frmcancelar.Dock = DockStyle.Fill
        frmTransparente.AgregarContenido(frmcancelar)
        frmcancelar.agregarLabels("del registro del ejercicio?", "registro", frmcancelar)
        frmTransparente.Show()
        Me.Hide()
        frmSecundario.Width = Screen.PrimaryScreen.WorkingArea.Width
        frmSecundario.Height = Screen.PrimaryScreen.WorkingArea.Height - Screen.PrimaryScreen.WorkingArea.Height * (60 / 100)
        frmSecundario.Location = New Point(Screen.PrimaryScreen.WorkingArea.X, Screen.PrimaryScreen.WorkingArea.Height * (32 / 100))



    End Sub


    Private Sub frmAsociarMusculosAEjercicio_Load(sender As Object, e As EventArgs) Handles MyBase.Load


        'For Each row As DataGridViewRow In tblMusculos.Rows
        '    row.Cells.Item("asociado").Value = True
        'Dim lDataColumn As New DataColumn(CheckBox, GetType(Boolean))

        'Dim chk As New DataGridViewCheckBoxColumn()
        'chk.HeaderText = " Check Row"
        'chk.Name = " ckBox "
        'tblMusculos.Columns.Add(chk)

        'For Each cells As DataGridViewCheckBoxColumn In tblMusculos.Columns.Item("ckbox")
        '    row.Cells.Item("asociado").Value = True
        '    'chkCell.Value = True
        '    'Dim chkCell As DataGridViewCheckBoxCell = tblMusculos.row.Cells("check")

        'Next

        tblMusculos.DataSource = objGestor.listarMusculos()
        Dim Obj As New DataGridViewColumn
        Dim Col As New DataGridViewCheckBoxColumn
        'Obj = Col
        Col.HeaderText = "Estado" ' el texto que ira en la cabecera
        Col.Name = "Estado" ' Nombre de la Columna de la Grilla
        Col.Width = 10
        tblMusculos.Columns.Add(Col)



        'Dim a As New DataGridViewCheckBoxColumn
        'tblMusculos.Columns.Add(a)



        'tblMusculos.Rows(0, 3).Cells("asociado").Value()

        'chkCell.Value = True
        'Dim chkCell As DataGridViewCheckBoxCell = tblMusculos.row.Cells("check")


        tblMusculos.Columns(1).Visible = False
        tblMusculos.Columns(3).HeaderText = "Irrigación"
        tblMusculos.Columns(5).HeaderText = "Inserción"
        tblMusculos.Columns(6).HeaderText = "Inervación"
        'tblMusculos.Columns(0).ReadOnly = False
        tblMusculos.Columns(0).Width = 120 'tamanno de los headers
        tblMusculos.Columns(2).Width = 200
        tblMusculos.Columns(3).Width = 200
        tblMusculos.Columns(4).Width = 200
        tblMusculos.Columns(5).Width = 200
        tblMusculos.Columns(6).Width = 200
        tblMusculos.Columns(2).ReadOnly = True 'propiedad para que no pueda editarse la celda
        tblMusculos.Columns(3).ReadOnly = True 'propiedad para que no pueda editarse la celda
        tblMusculos.Columns(4).ReadOnly = True 'propiedad para que no pueda editarse la celda
        tblMusculos.Columns(5).ReadOnly = True 'propiedad para que no pueda editarse la celda

    End Sub


    Private Sub btnRegistrar_Click(sender As Object, e As EventArgs) Handles btnRegistrar.Click

        For Each dRow As DataGridViewRow In tblMusculos.Rows 'recorre cada fila del data grid

            If dRow.Cells.Item("Asociado").Value = True Then 'si la celda esta true es por que se le dio check

                listaMusculos.Add(objGestor.listarMusculos.ElementAt(Convert.ToUInt32(dRow.Index))) 'agrega el elemento a la lista de musculos

            End If
        Next dRow



        If listaMusculos.Count = 0 Then 'valida si hay un musculo en la lista de musculos
            lblMusculosAsociados.Visible = True ' si no hay musculos muestra el label 
        Else


            Dim frmRegistrar As New frmRegistrarEjercicio
            For Each x As Control In Me.Parent.Controls.OfType(Of frmRegistrarEjercicio)()

                frmRegistrar = x
                nombreComun = frmRegistrar.txtNombreComun.Text
                nombreOpcional = frmRegistrar.txtNombreOpcional.Text
                codigo = frmRegistrar.txtCodigo.Text
                erroresComunes = frmRegistrar.txtErrores.Text
                indicacionesGenerales = frmRegistrar.txtIndicaciones.Text
                nombreMusculoPrincipal = frmRegistrar.cmbMusculos.SelectedItem

            Next

            Dim frmImagenes As New frmRegistrarImagenesEjercicio
            For Each x As Control In Me.Parent.Controls.OfType(Of frmRegistrarImagenesEjercicio)()

                frmImagenes = x


            Next

            objGestor.agregarEjercicio(nombreComun, nombreOpcional, codigo, frmImagenes.imagenEnbyte1, frmImagenes.imagenEnbyte2, nombreMusculoPrincipal, listaMusculos, erroresComunes, indicacionesGenerales) 'llama el metodo registrar en el gestor

            Dim frmModificarRoles As New frmRegistroExitoso 'crea una instancia del form modificar roles
            frmModificarRoles.Dock = DockStyle.Fill
            frmTransparente.AgregarContenido(frmModificarRoles)
            frmModificarRoles.agregarLabels("del rol " + nombreComun + ".")
            frmTransparente.Show()
            Me.Hide()

            frmSecundario.Width = Screen.PrimaryScreen.WorkingArea.Width
            frmSecundario.Height = Screen.PrimaryScreen.WorkingArea.Height - Screen.PrimaryScreen.WorkingArea.Height * (60 / 100)
            frmSecundario.Location = New Point(Screen.PrimaryScreen.WorkingArea.X, Screen.PrimaryScreen.WorkingArea.Height * (32 / 100))

            ''Esto sirve para recargar el dataGrid de ejercicios para que aparezca el ejercicio registrado
            FrmPrincipal.paneForm.Controls.Clear()
            Dim frm As New Control
            frm = New frmConsultarEjercicios
            frm.Dock = DockStyle.Fill
            FrmPrincipal.paneForm.Controls.Add(frm)
            ''--------------------------------------------------------------------------------------------
            ''cierra los forms
            'Me.Hide()
            'frmTransparente.Close()
            'frmSecundario.Close()
            '--------------------------------------------------------------------------------------------
        End If
    End Sub



End Class
